home *** CD-ROM | disk | FTP | other *** search
/ Flybox Trout (Edition 1) / Flybox Trout (Edition 1).iso / Setup / Support / FlyBox.swf / scripts / DefineSprite_300 / frame_15 / DoAction.as
Encoding:
Text File  |  2002-04-15  |  430 b   |  25 lines
  1. Anecdote = eval("_root:UAnecdote0");
  2. FlyName = eval("_root:UFly0");
  3. SendCount = 0;
  4. a = 0;
  5. do
  6. {
  7.    if(eval("_root:SendAnecdote" + a) == true)
  8.    {
  9.       SendCount += 1;
  10.    }
  11.    a += 1;
  12. }
  13. while(a < eval("_root:uRecords"));
  14.  
  15. a = 0;
  16. if(_root.SendAnecdote0 == true)
  17. {
  18.    tellTarget("SendAnecdote")
  19.    {
  20.       gotoAndStop(2);
  21.    }
  22. }
  23. set("_root:Uploaded","F");
  24. PageText = "Record 1 of " + eval("_root:uRecords");
  25.